home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / wb / Locked.lha / Locked / Install_Locked next >
Text File  |  1999-01-25  |  7KB  |  252 lines
  1. ; Skrypt instalacyjny dla programu Locked (1998-1999)
  2. ;
  3. ;    $VER: Locked v0.5 by ZATOR (22.01.1999)
  4. ;
  5. ; 
  6.  
  7.  
  8.  
  9. (set #ver_bgui (/ (getversion "libs:bgui.library") 65536))
  10. (set #ver_iden (/ (getversion "libs:identify.library") 65536))
  11. (set #ver_reqt (/ (getversion "libs:reqtools.library") 65536))
  12. (set #ver_fiid (/ (getversion "libs:FileID.library") 65536))
  13. (set #ver_asl (/ (getversion "libs:asl.library") 65536))
  14. (set #ver_cdpl (/ (getversion "libs:cdplay.library") 65536))
  15.  
  16.  
  17. (set wybr
  18.     (askchoice
  19.         (prompt "Jëzyk/Language")
  20.         (help @askchoice-help)
  21.         (choices "ENGLISH" "POLSKI")
  22.         (default 0)
  23.     )
  24. )
  25.  
  26. (if (= wybr 0)
  27. (
  28. (set #witam "Welcome in program installer to install programe\nLocked\nWith this script you install and configure programe") 
  29. (set #info ("\n Version (installed on your HD) of library:\n\nbgui.library - %ld (NIEZBËDNA)\nreqtools.library - %ld (NIEZBËDNA)\nasl.library - %ld\n FileID.library - %ld\n cdplay.library - %ld\n identify.library - %ld" #ver_bgui #ver_reqt #ver_asl #ver_fiid #ver_cdpl #ver_iden))
  30. (set #info_go "\nI'm installing programe Locked in directory WBSTARTUP\nSYS:WBSTARTUP/")
  31. (set #help_locked "\nScript copying programe Locked to drawer sys:wbstartup\nWith this Locked gonna runing always when you loading System")
  32. (set #info_locked "Copying programe Locked")
  33. (set #info_lang "Programe Locked have built polish language\nif you want you maybe install other language")
  34. (set #info_catalog "Which translation install?")
  35. (set #help_catalog "Mark this position which you want install in your system")
  36. (set #info_doc "Where install documentation?")
  37. (set #help_doc "This is documentation for programe Locked, better install his, because you maybe have problems when you change preferences")
  38. (set #info_pref "\nNOW I'm Ask you for many things to seting preferences\nof programe")
  39. (set #pyt_urz "How many drivers have gonna secure option")
  40. (set #hlp_urz "Enter number of drivers which have gonna secure option")
  41. (set #name_dev1 "Enter name 1-st partition (without ':' !!!)")
  42. (set #name_dev2 "Enter name 2-nd partition (without ':' !!!)")
  43. (set #name_dev3 "Enter name 3 partition (without ':' !!!)")
  44. (set #name_dev4 "Enter name 4 partition (without ':' !!!)")
  45. (set #name_dev5 "Enter name 5 partition (without ':' !!!)")
  46. (set #name_dev6 "Enter name 6 partition (without ':' !!!)")
  47. (set #file_cr "Creating configuration file")
  48. ))
  49.  
  50. (if (= wybr 1)
  51. (
  52. (set #witam "Witam w programie instalacyjnym programu\nLocked\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
  53. (set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nbgui.library - %ld (NIEZBËDNA)\nreqtools.library - %ld (NIEZBËDNA)\nasl.library - %ld\n FileID.library - %ld\n cdplay.library - %ld\n identify.library - %ld" #ver_bgui #ver_reqt #ver_asl #ver_fiid #ver_cdpl #ver_iden))
  54. (set #info_go "\nTeraz zainstaluje program locked w katalogu WBSTARTUP\nSYS:WBSTARTUP/")
  55. (set #help_locked "\nSkrypt skopiuje program Locked do katalogu sys:wbstartup\nDziëki temu Locked bëdzie sië uruchamiaî przy kaûdym wgraniu systemu.")
  56. (set #info_locked "Kopiuje program Locked")
  57. (set #info_lang "Program Locked ma wbudowany w sobie jëzyk POLSKI\njeôli chcesz moûesz zainstalowaê teraz katalogi\ninnych jëzyków")
  58. (set #info_catalog "Które tîumaczenia zainstalowaê?")
  59. (set #help_catalog "Zaznaczasz te wersje tîumaczeï, które chcesz zainstalowaê.")
  60. (set #info_doc "Gdzie zainstalowaê dokumentacje?")
  61. (set #help_doc "Jest to dokumentacja do programu, lepiej jâ zainstaluj bo potem moûesz mieê problemy przy zmienianiu preferencji")
  62. (set #info_pref "\nTeraz zapytam cië o kilka rzeczy aby ustawiê preferencje\nprogramu")
  63. (set #pyt_urz "Ile chcesz mieê zabezpieczonych partycji?")
  64. (set #hlp_urz "Wpisz liczbë urzâdzeï, które majâ mieê moûliwoôê opcje zabezpieczenia przed nagrywaniem.")
  65. (set #name_dev1 "Wpisz nazwe 1 partycji (bez ':' !!!)")
  66. (set #name_dev2 "Wpisz nazwe 2 partycji (bez ':' !!!)")
  67. (set #name_dev3 "Wpisz nazwe 3 partycji (bez ':' !!!)")
  68. (set #name_dev4 "Wpisz nazwe 4 partycji (bez ':' !!!)")
  69. (set #name_dev5 "Wpisz nazwe 5 partycji (bez ':' !!!)")
  70. (set #name_dev6 "Wpisz nazwe 6 partycji (bez ':' !!!)")
  71. (set #file_cr "Tworze plik konfiguracyjny")
  72. ))
  73.  
  74. (set #dev1 "DH0")
  75. (set #dev2 "DH1")
  76. (set #dev3 "DH2")
  77. (set #dev4 "DH3")
  78. (set #dev5 "DH4")
  79. (set #dev6 "DH5")
  80.  
  81. (welcome #witam)
  82.  
  83. (message #info)
  84. (message #info_go)
  85.  
  86. (copyfiles
  87.     (prompt #info_locked)
  88.     (source "Locked")
  89.     (dest "sys:wbstartup")
  90.     (confirm)
  91.     (help #help_locked)
  92. )
  93.  
  94. (set wyb
  95.     (askchoice
  96.         (prompt #info_lang)
  97.         (help @askchoice-help)
  98.         (choices "TAK/YES" "NIE/NO")
  99.         (default 1)
  100.     )
  101. )
  102.  
  103. (if (= wyb 0)
  104. (
  105. (copyfiles
  106.     (prompt #info_catalog)
  107.     (source "catalog")
  108.     (all)
  109.     (dest "LOCALE:catalogs")
  110.     (confirm)
  111.     (help #help_catalog)
  112. )
  113. )   
  114. )
  115.  
  116. (copyfiles
  117.     (prompt #info_doc)
  118.     (source "Locked.doc")
  119.     (dest "sys:tools")
  120.     (confirm)
  121.     (help #help_doc)
  122. )
  123.  
  124. (message #info_pref)
  125.  
  126. (set #urzadzenia
  127.     (asknumber
  128.         (prompt #pyt_urz)
  129.         (help #hlp_urz)
  130.         (range 1 6)
  131.         (default 1)
  132.     )
  133. )
  134.  
  135.  
  136. (if (> #urzadzenia 0)
  137. (
  138. (set #dev1
  139.     (askstring
  140.         (prompt #name_dev1)
  141.         (help @askstring-help)
  142.         (default "DH0")
  143.     )
  144. )
  145. ))
  146.  
  147. (if (> #urzadzenia 1)
  148. (
  149. (set #dev2
  150.     (askstring
  151.         (prompt #name_dev2)
  152.         (help @askstring-help)
  153.         (default "DH1")
  154.     )
  155. )
  156. ))
  157.  
  158.  
  159. (if (> #urzadzenia 2)
  160. (
  161. (set #dev3
  162.     (askstring
  163.         (prompt #name_dev3)
  164.         (help @askstring-help)
  165.         (default "DH2")
  166.     )
  167. )
  168. ))
  169.  
  170. (if (> #urzadzenia 3)
  171. (
  172. (set #dev4
  173.     (askstring
  174.         (prompt #name_dev4)
  175.         (help @askstring-help)
  176.         (default "DH3")
  177.     )
  178. )
  179. ))
  180.  
  181.  
  182. (if (> #urzadzenia 4)
  183. (
  184. (set #dev5
  185.     (askstring
  186.         (prompt #name_dev5)
  187.         (help @askstring-help)
  188.         (default "DH4")
  189.     )
  190. )
  191. ))
  192.  
  193. (if (> #urzadzenia 5)
  194. (
  195. (set #dev6
  196.     (askstring
  197.         (prompt #name_dev6)
  198.         (help @askstring-help)
  199.         (default "DH5")
  200.     )
  201. )
  202. ))
  203.  
  204. (textfile
  205.     (prompt #file_cr)
  206.     (help #file_hl)
  207.     (dest "ENVARC:locked.prefs")
  208.     (append "Locked V0.80 (1998) Prefs.\n")
  209.     (append "50\n50\n0\n")
  210.     (append #dev1)
  211.     (append "\n")
  212.     (append #dev2)
  213.     (append "\n")
  214.     (append #dev3)
  215.     (append "\n")
  216.     (append #dev4)
  217.     (append "\n")
  218.     (append #dev5)
  219.     (append "\n")
  220.     (append #dev6)
  221.     (append "\n")
  222.     (append #urzadzenia)
  223.     (append "\n")
  224.     (append "0\ntopaz.font\n8\n2\natapi.device\n")
  225.     (append "Workbench Screen                                                                #@!-81\n\n")
  226.     (confirm)
  227. )
  228.  
  229. (textfile
  230.     (prompt #file_cr)
  231.     (help #file_hl)
  232.     (dest "ENV:locked.prefs")
  233.     (append "Locked V0.80 (1998) Prefs.\n")
  234.     (append "50\n50\n0\n")
  235.     (append #dev1)
  236.     (append "\n")
  237.     (append #dev2)
  238.     (append "\n")
  239.     (append #dev3)
  240.     (append "\n")
  241.     (append #dev4)
  242.     (append "\n")
  243.     (append #dev5)
  244.     (append "\n")
  245.     (append #dev6)
  246.     (append "\n")
  247.     (append #urzadzenia)
  248.     (append "\n")
  249.     (append "0\ntopaz.font\n8\n2\natapi.device\n")
  250.     (append "Workbench Screen                                                                #@!-81\n\n")
  251.     (confirm)
  252. )